/*
	Title: 01_Figure7.do
	Paper: Brauning, Ivashina, Ozdagli (2025)
	Description: Figure 7 - Sensitivity Analysis to EBITDA adjustments
*/

/*------------------------------------------------------------------------------
								  Figure 7
------------------------------------------------------------------------------*/
// Import Figure 7 data
use "$data_path/Figure7.dta", clear

// Create Figure 7A
set scheme s1color
serrbar estimate se placebo_val if sample == "Incurrence", ///
		lcolor(navy) mvopts(mcolor(navy)) /// 
		scale(2) xlabel(-50 -25 -10 0 10 25 50) ///
		xtitle(" " "% Adjustment of EBITDA") ytitle("Effect on investment" " ") ///
		yline(0) ylabel(-3(1)2) /// 
		plotregion(style(none)) ///
		name(Figure7A, replace)
		
graph export "$figures_path/Figure7A.png", replace 		
		
// Create Figure 7B
set scheme s1color
serrbar estimate se placebo_val if sample == "Maintenance", ///
		lcolor(navy) mvopts(mcolor(navy)) /// 
		scale(2) xlabel(-50 -25 -10 0 10 25 50) ///
		xtitle(" " "% Adjustment of EBITDA") ytitle("Effect on investment" " ") ///
		yline(0) ylabel(-3(1)2) /// 
		plotregion(style(none)) ///
		name(Figure7B, replace)
		
graph export "$figures_path/Figure7B.png", replace 		